home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / docs / pascsrc / whilelp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  352 b   |  15 lines
  1.                                 (* Chapter 4 - Program 7 *)
  2. program While_Loop_Example;
  3.  
  4. var Counter : integer;
  5.  
  6. begin
  7.    Counter := 4;
  8.    while Counter < 20 do begin
  9.       Write('We are in the while loop, waiting ');
  10.       Write('for the counter to reach 20. It is',Counter:4);
  11.       Writeln;
  12.       Counter := Counter + 2;
  13.    end;
  14. end.
  15.